#include "AES.h"
#include <stdio.h>
#include <string.h>
#include <stdarg.h>
#include <stdlib.h>
const unsigned char AgiSbox[16][16]={
/*       0     1     2     3     4     5     6     7     8     9     a     b     c     d     e     f     */
/*0*/  {0x52, 0x09, 0x6a, 0xd5, 0x30, 0x36, 0xa5, 0x38, 0xbf, 0x40, 0xa3, 0x9e, 0x81, 0xf3, 0xd7, 0xfb},
/*1*/  {0x7c, 0xe3, 0x39, 0x82, 0x9b, 0x2f, 0xff, 0x87, 0x34, 0x8e, 0x43, 0x44, 0xc4, 0xde, 0xe9, 0xcb},
/*2*/  {0x54, 0x7b, 0x94, 0x32, 0xa6, 0xc2, 0x23, 0x3d, 0xee, 0x4c, 0x95, 0x0b, 0x42, 0xfa, 0xc3, 0x4e},
/*3*/  {0x08, 0x2e, 0xa1, 0x66, 0x28, 0xd9, 0x24, 0xb2, 0x76, 0x5b, 0xa2, 0x49, 0x6d, 0x8b, 0xd1, 0x25},
/*4*/  {0x72, 0xf8, 0xf6, 0x64, 0x86, 0x68, 0x98, 0x16, 0xd4, 0xa4, 0x5c, 0xcc, 0x5d, 0x65, 0xb6, 0x92},
/*5*/  {0x6c, 0x70, 0x48, 0x50, 0xfd, 0xed, 0xb9, 0xda, 0x5e, 0x15, 0x46, 0x57, 0xa7, 0x8d, 0x9d, 0x84},
/*6*/  {0x90, 0xd8, 0xab, 0x00, 0x8c, 0xbc, 0xd3, 0x0a, 0xf7, 0xe4, 0x58, 0x05, 0xb8, 0xb3, 0x45, 0x06},
/*7*/  {0xd0, 0x2c, 0x1e, 0x8f, 0xca, 0x3f, 0x0f, 0x02, 0xc1, 0xaf, 0xbd, 0x03, 0x01, 0x13, 0x8a, 0x6b},
/*8*/  {0x3a, 0x91, 0x11, 0x41, 0x4f, 0x67, 0xdc, 0xea, 0x97, 0xf2, 0xcf, 0xce, 0xf0, 0xb4, 0xe6, 0x73},
/*9*/  {0x96, 0xac, 0x74, 0x22, 0xe7, 0xad, 0x35, 0x85, 0xe2, 0xf9, 0x37, 0xe8, 0x1c, 0x75, 0xdf, 0x6e},
/*a*/  {0x47, 0xf1, 0x1a, 0x71, 0x1d, 0x29, 0xc5, 0x89, 0x6f, 0xb7, 0x62, 0x0e, 0xaa, 0x18, 0xbe, 0x1b},
/*b*/  {0xfc, 0x56, 0x3e, 0x4b, 0xc6, 0xd2, 0x79, 0x20, 0x9a, 0xdb, 0xc0, 0xfe, 0x78, 0xcd, 0x5a, 0xf4},
/*c*/  {0x1f, 0xdd, 0xa8, 0x33, 0x88, 0x07, 0xc7, 0x31, 0xb1, 0x12, 0x10, 0x59, 0x27, 0x80, 0xec, 0x5f},
/*d*/  {0x60, 0x51, 0x7f, 0xa9, 0x19, 0xb5, 0x4a, 0x0d, 0x2d, 0xe5, 0x7a, 0x9f, 0x93, 0xc9, 0x9c, 0xef},
/*e*/  {0xa0, 0xe0, 0x3b, 0x4d, 0xae, 0x2a, 0xf5, 0xb0, 0xc8, 0xeb, 0xbb, 0x3c, 0x83, 0x53, 0x99, 0x61},
/*f*/  {0x17, 0x2b, 0x04, 0x7e, 0xba, 0x77, 0xd6, 0x26, 0xe1, 0x69, 0x14, 0x63, 0x55, 0x21, 0x0c, 0x7d} };
const unsigned char Rcon[11][4]={ {0x00, 0x00, 0x00, 0x00},
                                  {0x01, 0x00, 0x00, 0x00},
                                  {0x02, 0x00, 0x00, 0x00},
                                  {0x04, 0x00, 0x00, 0x00},
                                  {0x08, 0x00, 0x00, 0x00},
                                  {0x10, 0x00, 0x00, 0x00},
                                  {0x20, 0x00, 0x00, 0x00},
                                  {0x40, 0x00, 0x00, 0x00},
                                  {0x80, 0x00, 0x00, 0x00},
                                  {0x1b, 0x00, 0x00, 0x00},
                                  {0x36, 0x00, 0x00, 0x00} };
const unsigned char Sbox[16][16]={  
/*        0     1     2     3     4     5     6     7     8     9     a     b     c     d    e      f   */
/*0*/  {0x63, 0x7c, 0x77, 0x7b, 0xf2, 0x6b, 0x6f, 0xc5, 0x30, 0x01, 0x67, 0x2b, 0xfe, 0xd7, 0xab, 0x76},
/*1*/  {0xca, 0x82, 0xc9, 0x7d, 0xfa, 0x59, 0x47, 0xf0, 0xad, 0xd4, 0xa2, 0xaf, 0x9c, 0xa4, 0x72, 0xc0},
/*2*/  {0xb7, 0xfd, 0x93, 0x26, 0x36, 0x3f, 0xf7, 0xcc, 0x34, 0xa5, 0xe5, 0xf1, 0x71, 0xd8, 0x31, 0x15},
/*3*/  {0x04, 0xc7, 0x23, 0xc3, 0x18, 0x96, 0x05, 0x9a, 0x07, 0x12, 0x80, 0xe2, 0xeb, 0x27, 0xb2, 0x75},
/*4*/  {0x09, 0x83, 0x2c, 0x1a, 0x1b, 0x6e, 0x5a, 0xa0, 0x52, 0x3b, 0xd6, 0xb3, 0x29, 0xe3, 0x2f, 0x84},
/*5*/  {0x53, 0xd1, 0x00, 0xed, 0x20, 0xfc, 0xb1, 0x5b, 0x6a, 0xcb, 0xbe, 0x39, 0x4a, 0x4c, 0x58, 0xcf},
/*6*/  {0xd0, 0xef, 0xaa, 0xfb, 0x43, 0x4d, 0x33, 0x85, 0x45, 0xf9, 0x02, 0x7f, 0x50, 0x3c, 0x9f, 0xa8},
/*7*/  {0x51, 0xa3, 0x40, 0x8f, 0x92, 0x9d, 0x38, 0xf5, 0xbc, 0xb6, 0xda, 0x21, 0x10, 0xff, 0xf3, 0xd2},
/*8*/  {0xcd, 0x0c, 0x13, 0xec, 0x5f, 0x97, 0x44, 0x17, 0xc4, 0xa7, 0x7e, 0x3d, 0x64, 0x5d, 0x19, 0x73},
/*9*/  {0x60, 0x81, 0x4f, 0xdc, 0x22, 0x2a, 0x90, 0x88, 0x46, 0xee, 0xb8, 0x14, 0xde, 0x5e, 0x0b, 0xdb},
/*a*/  {0xe0, 0x32, 0x3a, 0x0a, 0x49, 0x06, 0x24, 0x5c, 0xc2, 0xd3, 0xac, 0x62, 0x91, 0x95, 0xe4, 0x79},
/*b*/  {0xe7, 0xc8, 0x37, 0x6d, 0x8d, 0xd5, 0x4e, 0xa9, 0x6c, 0x56, 0xf4, 0xea, 0x65, 0x7a, 0xae, 0x08},
/*c*/  {0xba, 0x78, 0x25, 0x2e, 0x1c, 0xa6, 0xb4, 0xc6, 0xe8, 0xdd, 0x74, 0x1f, 0x4b, 0xbd, 0x8b, 0x8a},
/*d*/  {0x70, 0x3e, 0xb5, 0x66, 0x48, 0x03, 0xf6, 0x0e, 0x61, 0x35, 0x57, 0xb9, 0x86, 0xc1, 0x1d, 0x9e},
/*e*/  {0xe1, 0xf8, 0x98, 0x11, 0x69, 0xd9, 0x8e, 0x94, 0x9b, 0x1e, 0x87, 0xe9, 0xce, 0x55, 0x28, 0xdf},
/*f*/  {0x8c, 0xa1, 0x89, 0x0d, 0xbf, 0xe6, 0x42, 0x68, 0x41, 0x99, 0x2d, 0x0f, 0xb0, 0x54, 0xbb, 0x16} };

volatile unsigned char State[4][4],key2[16],w[44][4],temp[4];

void AddRoundKey(int round)
{
    int i,j;
    for (i = 0; i < 4; i++)
    {
        for (j = 0; j < 4; j++)
        {
            State[i][j] = State[i][j]^w[(4*round)+j][i] ;
        }
    }
}

void AgiSubBytes()
{
    int i,j;
    for (i = 0;i < 4; i++)
    {
        for (j = 0; j < 4; j++)
        {
            State[i][j] = AgiSbox[ (State[i][j] >> 4)][ (State[i][j] & 0x0f) ];
        }
    }
}

void AgiShiftRows()
{  
    unsigned char transfer1[4][4];
    int i,j;

    for (i= 0; i < 4; i++) 
    {
        for (j= 0; j < 4;j++)
        {
            transfer1[i][j] = State[i][j];
        }
    }
    for (i = 1; i < 4; i++) 
    {
        for (j = 0; j < 4; j++)
        {
            State[i][(i+j) % 4 ] = transfer1[ i][j ];
        }
    }
}

unsigned char zy(unsigned char l)
{
    if (l<0x80)   return (l<<1);
    else          return (l<<1)^(0x1b);
}
int FieldMult(int i,unsigned char j)
{
    if (i==1)      
    {
        return (int)zy(zy(zy(j)))^(int)j;
    }
    else if(i==2) 	
    {
        return (int)zy(zy(zy(j)))^zy(j)^(int)j;
    }
    else if(i==3)
    {
        return (int)zy(zy(zy(j)))^zy(zy(j))^(int)j;
    }
    else
    {
        return (int)zy(zy(zy(j)))^zy(zy(j))^zy(j);
    }
}
		
void AgiMixColumns()
{
    unsigned char transfer2 [4][4];
    int i,j,k;

    for (i= 0; i < 4; i++)  
    {
        for (j = 0; j < 4; j++)
        {
            transfer2[i][j] = State[i][j];
        }
    }

    for (k= 0; k< 4; k++)
    {
        State[0][k]=FieldMult(4,transfer2[0][k])^FieldMult(2,transfer2[1][k])^FieldMult(3,transfer2[2][k])^FieldMult(1,transfer2[3][k]);
        State[1][k]=FieldMult(1,transfer2[0][k])^FieldMult(4,transfer2[1][k])^FieldMult(2,transfer2[2][k])^FieldMult(3,transfer2[3][k]);
        State[2][k]=FieldMult(3,transfer2[0][k])^FieldMult(1,transfer2[1][k])^FieldMult(4,transfer2[2][k])^FieldMult(2,transfer2[3][k]);
        State[3][k]=FieldMult(2,transfer2[0][k])^FieldMult(3,transfer2[1][k])^FieldMult(1,transfer2[2][k])^FieldMult(4,transfer2[3][k]);
    }
}

void SubWord(unsigned char *word)
{
    unsigned char transfer3[4];
    transfer3[0] = Sbox[ word[0] >> 4][ word[0] & 0x0f ];
    transfer3[1] = Sbox[ word[1] >> 4][ word[1] & 0x0f ];
    transfer3[2] = Sbox[ word[2] >> 4][ word[2] & 0x0f ];
    transfer3[3] = Sbox[ word[3] >> 4][ word[3] & 0x0f ];
    memcpy(word,transfer3,4);
}

void RotWord(unsigned char *word)
{
    unsigned char transfer4 [4];
    transfer4[0] = word[1];
    transfer4[1] = word[2];
    transfer4[2] = word[3];
    transfer4[3] = word[0];
    memcpy(word,transfer4,4);
}
void KeyExpansion()
{
    int i;
    for (i = 0; i < 4; i++)
    {
        w[i][0] = key2[4*i];
        w[i][1] = key2[4*i+1];
        w[i][2] = key2[4*i+2];
        w[i][3] = key2[4*i+3];
    }    
    for (i = 4; i < 44; i++)
    {
        temp[0] = w[i-1][0]; 
        temp[1] = w[i-1][1];
        temp[2] = w[i-1][2]; 
        temp[3] = w[i-1][3];
        if (i % 4 == 0)  
        {
            RotWord((unsigned char *)temp);
            SubWord((unsigned char *)temp);
            temp[0] = temp[0] ^ Rcon[i/4][0];
            temp[1] = temp[1] ^ Rcon[i/4][1];
            temp[2] = temp[2] ^ Rcon[i/4][2];
            temp[3] = temp[3] ^ Rcon[i/4][3];
        }
        w[i][0] = w[i-4][0] ^ temp[0];
        w[i][1] = w[i-4][1] ^ temp[1];
        w[i][2] = w[i-4][2] ^ temp[2];
        w[i][3] = w[i-4][3] ^ temp[3];    
    } 
} 

void AES(unsigned char *input,unsigned char *key,unsigned char *output)
{    
    int i;
    memcpy((char *)key2,key,16);
    KeyExpansion();
      
    for (i = 0; i < 16; i++)
    {
        State[i % 4][ i / 4] = input[i];
    }
    
    AddRoundKey(10);
      
    for (i = 9; i >= 1; i--)  
    {
        AgiShiftRows();
        AgiSubBytes();
        AddRoundKey(i);
        AgiMixColumns();
    } 

    AgiShiftRows();
    AgiSubBytes();
    AddRoundKey(0);

    for (i = 0; i < 16; i++)
    {
        output[i] = State[i % 4][i / 4];
    }       
}
unsigned char ASC_Byte(unsigned char in)
{
    switch(in)
    {
    case '0':
        return 0x00;
    case '1':
        return 0x01;
    case '2':
        return 0x02;
    case '3':
        return 0x03;
    case '4':
        return 0x04;
    case '5':
        return 0x05;
    case '6':
        return 0x06;
    case '7':
        return 0x07;
    case '8':
        return 0x08;
    case '9':
        return 0x09;
    case 'a':
    case 'A':
        return 0x0a;
    case 'b':
    case 'B':
        return 0x0b;
    case 'c':
    case 'C':
        return 0x0c;
    case 'd':
    case 'D':
        return 0x0d;
    case 'e':
    case 'E':
        return 0x0e;
    case 'f':
    case 'F':
        return 0x0f;
    default:
        return 0x00;
    }
}
void Convert_Byte(unsigned char* inbuf,unsigned char *outbuf)//inbuf:32λ,outbuf:16λ
{
    int i;
    for(i=0;i<16;i++)
    {
        outbuf[i]=(ASC_Byte(inbuf[2*i])<<4)+ASC_Byte(inbuf[2*i+1]);
    }         
}